home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Trading on the Edge
/
Trading On The Edge - CD-ROM Toolkit (Wayzata Technology)(2031)(1994).bin
/
pc
/
mac_file
/
vendor_d
/
neuralwa
/
nw2v50
/
bkpsched.iif
< prev
next >
Wrap
Text File
|
1993-08-23
|
1KB
|
129 lines
inst4.1
! Sets up exponentially decaying backprop schedule
! Assumes new named schedule has been set up
!
! n0, n1, f0, f1, f2 corrupted on output
!
=f0 LCRt
?f0 1.0
>bgt LCRtOK
=f0 1.0
/f0 LCRt
:LCRtOK
lf0 10.0
?BBT1 10
>bge BBT1OK
=BBT1 10
:BBT1OK
/f0 BBT1
=n0 0
=n1 1
! Column A
=lcta n1
*lcta BBT1
+lcta n0
*n1 2
=n0 lcta
=f2 1.0
=ArrX 1
=lcft "Learning Rate"
=lcfa BBLC
*lcfa f2
=ArrX 2
=lcft "Momentum"
=lcfa BBMm
*lcfa f2
=ArrX 3
=lcft "Err. Tolerance"
=lcfa 0.1
! Column B
=lctb n1
*lctb BBT1
+lctb n0
*n1 2
=f1 0.0
-f1 f0
*f1 n0
=f2 10.0
^f2 f1
=n0 lctb
=ArrX 1
=lcfb BBLC
*lcfb f2
=ArrX 2
=lcfb BBMm
*lcfb f2
=ArrX 3
=lcfb 0.1
! Column C
=lctc n1
*lctc BBT1
+lctc n0
*n1 2
=f1 0.0
-f1 f0
*f1 n0
=f2 10.0
^f2 f1
=n0 lctc
=ArrX 1
=lcfc BBLC
*lcfc f2
=ArrX 2
=lcfc BBMm
*lcfc f2
=ArrX 3
=lcfc 0.1
! Column D
=lctd n1
*lctd BBT1
+lctd n0
*n1 2
=f1 0.0
-f1 f0
*f1 n0
=f2 10.0
^f2 f1
=n0 lctd
=ArrX 1
=lcfd BBLC
*lcfd f2
=ArrX 2
=lcfd BBMm
*lcfd f2
=ArrX 3
=lcfd 0.1
! Column E
=lcte n1
*lcte BBT1
+lcte n0
*n1 2
=f1 0.0
-f1 f0
*f1 n0
=f2 10.0
^f2 f1
=ArrX 1
=lcfe BBLC
*lcfe f2
=ArrX 2
=lcfe BBMm
*lcfe f2
=ArrX 3
=lcfe 0.1
@SLRS
=ArrX 0